home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS in a Box 7
/
BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso
/
Files
/
Hyper
/
P
/
Perils of Palermo.cpt
/
Perils of Palermo
/
card_6223.txt
< prev
next >
Wrap
Text File
|
1987-11-16
|
7KB
|
301 lines
-- card: 6223 from stack: in
-- bmap block id: 5622
-- flags: 0000
-- background id: 5366
-- name: Game card
----- HyperTalk script -----
on opencard
play dragnet
wait until the sound is "done"
global ladderyet
put notyet into ladderyet
put empty into card field TextBox
set visible of button bulb to true
set hilite of button bulb to false
set visible of button fixture to true
set hilite of button fixture to false
set hilite of button BlackBox to true
set textfont of card field TextBox to Geneva
set textsize of card field TextBox to 14
Click at the loc of card field TextBox
Type "You awaken in a dark room." & return & return
Wait 3 seconds
Type "You can hardly see a thing." & return & return
Wait 3 seconds
Type "You hear a scream …" & return & return
Play sophia tempo 100 g4
Wait 3 seconds
Type "It is your neighbor's wife, Sophia!" & return & return
Wait 3 seconds
Type "It sounds like she's in BIG trouble!!" & return & return
Wait 3 seconds
Type "Ahead, you see what looks like a light bulb." & return & return
Wait 3 seconds
Type "What will you do?" & return & return
Wait 4 seconds
Answer "Do you want to take the light bulb?" with "Okay, Nick"
Type "Now you have the light bulb." & return & return
Type "So do something, huh!" & return & return
end opencard
-- part 4 (field)
-- low flags: 00
-- high flags: 0007
-- rect: left=291 top=31 right=180 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 3
-- text size: 14
-- style flags: 0
-- line height: 18
-- part name: TextBox
-- part 7 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=384 top=241 right=262 bottom=406
-- title width / last selected line: 0
-- icon id / first selected line: 29019 / 29019
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
global ladderyet,messagestring,messagestring2
if ladderyet contains "already"
then
Play sophia tempo 100 c5
put "You have saved Sophia. You are a hero!" into messagestring
put "You get 20,000 points." into messagestring2
visual dissolve slowly to gray
go to next card
else
put already into ladderyet
play thud
put empty into card field TextBox
set textfont of card field TextBox to Geneva
set textsize of card field TextBox to 14
Click at the loc of card field TextBox
Type "You have walked into what feels like a ladder." & return & return
Wait 4 seconds
Answer "Do you want to take the ladder?" with "Okay, Nick"
Type "Now you have the ladder and the light bulb." & return & return
Wait 3 seconds
Type "On the ceiling you see what looks like a light fixture." & return & return
Wait 3 seconds
Type "What will you do?" & return & return
Wait 4 seconds
Answer "Do you want to climb the ladder?" with "Okay, Nick"
Type "You are at the top of the ladder." & return & return
Wait 3 seconds
Type "What will you do?" & return & return
Wait 4 seconds
Answer "Do you want to screw in the light bulb?" with "Sure, Nick"
Wait 2 seconds
Type "You can't, you idiot! There's no one to turn the ladder!!" & return & return
Play boing
Wait 4 seconds
Answer "$%*!&*!" with "Sorry, Nick"
Wait 2 seconds
Play sophia tempo 130 g4
Wait until the sound is "done"
Play sophia tempo 130 a4
Wait until the sound is "done"
Play sophia tempo 130 g4
Wait until the sound is "done"
Wait 1 seconds
Type "Sophia's screams are getting more desperate." & return & return
Wait 4 seconds
Type "There is REAL danger ahead." & return & return
Wait 4 seconds
Type "So do something, big shot!" & return
end if
end mouseUp
-- part 15 (button)
-- low flags: 00
-- high flags: 4001
-- rect: left=29 top=57 right=284 bottom=251
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: BlackBox
-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=85 top=213 right=246 bottom=119
-- title width / last selected line: 0
-- icon id / first selected line: 31629 / 31629
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Bulb
-- part 12 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=384 top=280 right=301 bottom=406
-- title width / last selected line: 0
-- icon id / first selected line: 2730 / 2730
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
global messagestring
global messagestring2
put "You left Sophia to die a horrible death!" into messagestring
put "You get 10,000 points." into messagestring2
Play sophia tempo 10 b3
wait 2 seconds
visual dissolve slowly to gray
go to card "oops"
end mouseUp
-- part 13 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=417 top=260 right=281 bottom=439
-- title width / last selected line: 0
-- icon id / first selected line: 1013 / 1013
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
global messagestring
global messagestring2
put "You walked into a wall!" into messagestring
put "You get 10,000 points." into messagestring2
play thud
wait 2 seconds
visual dissolve slowly to gray
go to card "oops"
end mouseUp
-- part 14 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=350 top=260 right=281 bottom=372
-- title width / last selected line: 0
-- icon id / first selected line: 1014 / 1014
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: New Button
----- HyperTalk script -----
on mouseUp
global messagestring
global messagestring2
put "You walked into a wall!" into messagestring
put "You get 10,000 points." into messagestring2
play thud
wait 2 seconds
visual dissolve slowly to gray
go to card "oops"
end mouseUp
-- part 16 (button)
-- low flags: 00
-- high flags: 8003
-- rect: left=70 top=307 right=329 bottom=212
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Nick, I need a clue!
----- HyperTalk script -----
on mouseUp
set visible of button bulb to false
set visible of button fixture to false
set visible of button BlackBox to false
wait 5 seconds
set visible of button BlackBox to true
set visible of button bulb to true
set visible of button fixture to true
end mouseUp
-- part 17 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=124 top=63 right=96 bottom=158
-- title width / last selected line: 0
-- icon id / first selected line: 2720 / 2720
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Fixture
-- part contents for card part 4
----- text -----
You have walked into what feels like a ladder.
Now you have the ladder and the light bulb.
On the ceiling you see what looks like a light fixture.
What will